home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 6 / cljune86.zip / EDITOR1.FIG < prev    next >
Text File  |  1986-04-02  |  896b  |  37 lines
  1.  
  2.                             Figure 1
  3.            Longest line and average line length macro
  4.  
  5. (defun
  6.  (mactest sumleng longest averleng numl longleng
  7.  
  8.   (setq sumleng 0)
  9.   (setq longleng 0)
  10.   (setq longest 0)
  11.   (setq numl 0)
  12.   (set  "track-eol-on-^N-^P" 1)
  13.   (beginning-of-file)
  14.   (end-of-line)
  15.  
  16.   (while (!= (following-char) 0)
  17.    (setq numl (+ numl 1))
  18.    (setq sumleng (+ sumleng (current-column) ) )
  19.    (if (> (current-column) longleng)
  20.     (progn
  21.      (setq longest numl)
  22.      (setq longleng (current-column) )
  23.      (set-mark)
  24.     )
  25.    )
  26.    (next-line)
  27.   )
  28.  
  29.   (setq averleng (/ sumleng numl) )
  30.   (goto-character (mark))
  31.   (beginning-of-line)è  (message (concat "Cursor is in longest line, (" longest ") average length = "
  32.    averleng) )
  33.  )
  34. )
  35.  
  36.  
  37.